(COMMENT BPS 17000. REGPDL 4000. SPECPDL 2000.)

(PROGN
	(FASLOAD DEMON FAS DSK (AID RPG))
	(HELP)

(SETSYNTAX 361 'SPLICING '(LAMBDA () (IOC Q) (ASCII 40)))
(SETSYNTAX 347 'SPLICING '(LAMBDA () (IOC G) (ASCII 40)))
(SETQ undf-fnctn '(LAMBDA (FN) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR FN)) (TYO 32.)
	(PRINC '|Undefined Function. Either type the name /
of a function to substitute or ↑G: |)
	(NCONS (READ))))
(SETQ unbnd-vrbl '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Unbound variable. Either type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-type-arg '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Bad argument to function - probably wrong type. /
Type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-no-args '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Wrong number of arguments to form. /
Type a form to use or ↑G: |)
	(NCONS (READ))))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(DEFUN LOWER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 I)))
(DEFUN UPPER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 (- I 40))))

	'Done!)